From b6ff8721671867881b7a97450284aeb4583658d5 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 27 Jul 1993 19:28:46 +0000 Subject: [PATCH] (vc-rcs-status): Removing any trailing "-". --- lisp/vc-hooks.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index c120b7cea3f..e9b28f99cdb 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -216,7 +216,7 @@ visiting FILE." (narrow-to-region (match-beginning 1) (match-end 1)) (goto-char (point-min)) (while (re-search-forward lock-pattern nil t) - (replace-match "-" t t)) + (replace-match (if (eobp) "" "-") t t)) (buffer-string))) (status (if (not (string-equal locks "")) -- 2.30.2